home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / intro.dir / 00122_Script_antipoll class < prev    next >
Text File  |  1997-08-08  |  2KB  |  93 lines
  1. -- antipoll class
  2. -- -------------------------------------------------- 
  3.  
  4. property obj
  5. property folderpath
  6. property xtraname
  7. property disposeflag
  8.  
  9. -- ==================================================
  10. -- new method
  11. -- --------------------------------------------------
  12. on new me, props
  13.   
  14.   minit me, props
  15.   return me
  16.   
  17. end mnew 
  18.  
  19. -- ==================================================
  20. -- minit method
  21. -- --------------------------------------------------
  22. on minit me
  23.   
  24.   put "in minit antipoll "
  25.   
  26.   
  27.   set platformseperator = "\"
  28.   set xtraname = "antipoll"
  29.   
  30.   
  31.   set folderpath = "xtra" & platformseperator
  32.   
  33.   openxlib the moviepath & folderpath & xtraname
  34.   
  35.   set obj = xronosKit ( mnew )
  36.   
  37.   set disposeflag = false
  38.   
  39.   put "out minit antipoll "
  40.   
  41. end minit 
  42.  
  43. -- ==================================================
  44. -- monekey poll method
  45. -- --------------------------------------------------
  46. on monekey  me, thecode
  47.   
  48.   return obj ( lKeyState, thecode )
  49.   
  50. end monekey
  51.  
  52. -- ==================================================
  53. -- mgetallkeys poll method
  54. -- --------------------------------------------------
  55. on mgetallkeys
  56.   
  57.   global gantipoll
  58.   set codeflag = false
  59.   
  60.   set allkeys = []
  61.   
  62.   repeat with loopcode = 0 to 256
  63.     
  64.     set key = monekey (gantipoll, loopcode )
  65.     
  66.     if key then 
  67.     add allkeys, loopcode
  68.     end if
  69.     
  70.   end repeat
  71.   
  72.   return allkeys
  73.   
  74. end mgetallkeys 
  75.  
  76. -- ==================================================
  77. -- mdispose poll method
  78. -- --------------------------------------------------
  79. on mdispose me
  80.   
  81.   put "in mdispose antipoll "
  82.   
  83.   if not ( disposeflag ) then
  84.     set disposeflag = true
  85.     obj ( mdispose )
  86.     closexlib the moviepath & folderpath & xtraname
  87.   end if
  88.   
  89.   put "out mdispose antipoll "
  90.   
  91. end mdispose
  92.  
  93.